% % Constants
% U12=400; U23=400*exp(-2j*pi/3); U31=400*exp(-4j*pi/3);
% 
% %quiver U12, U23, U31
% subplot(2,1,1)
% grid on, axis equal
% hold on
% % 1st arrow
% refStart=0; arrow=U12;
% h=quiver(real(refStart),imag(refStart),real(arrow),imag(arrow),'Color','r');
% set(h,'DisplayName','U12')
% % 2nd arrow
% refStart=refStart+arrow; arrow=U23;
% h=quiver(real(refStart),imag(refStart),real(arrow),imag(arrow),'Color','b');
% set(h,'DisplayName','U23')
% % 3rd arrow
% refStart=refStart+arrow; arrow=U31;
% h=quiver(real(refStart),imag(refStart),real(arrow),imag(arrow),'Color','k');
% set(h,'DisplayName','U31')
% legend show
% 
% % switch off the Quivergroup Property ???AutoScale??? for all arrows
% hAutoScale=findobj('-property','AutoScale');
% set(hAutoScale,'AutoScale','off')


U=1;
I=0.8+j*0.6;
xd_2=0.2
xd=1.8
ixd_2=I*j*xd_2;
ixd=I*j*xd;

h=quiver(real(0),imag(0),real(0),real(U),'Color','r');
set(h,'DisplayName','U1G')
set(h,'AutoScaleFactor',1)
kopf_anpassen(h, 2.83);
hold on
grid on
h=quiver(real(0),imag(0),real(I),imag(I),'Color','b');
set(h,'DisplayName','I1G')
set(h,'AutoScaleFactor',1)
kopf_anpassen(h, 2.83/abs(I));

h=quiver(real(0),real(U),real(ixd_2),imag(ixd_2),'Color','g');
set(h,'DisplayName','I1G*xd_2')
set(h,'AutoScaleFactor',1)
kopf_anpassen(h, 2.83/0.2)
%adjust_quiver_arrowhead_size(h, 2.83/0.2);

h=quiver(real(ixd_2),imag(ixd_2)+1,real(ixd),imag(ixd),'Color','m');
set(h,'DisplayName','I1G*x_d')
set(h,'AutoScaleFactor',1)
kopf_anpassen(h, 2.83/1.8);

h=quiver(real(0),imag(0),real(ixd+ixd_2),imag(ixd+ixd_2)+1,'Color','k');
set(h,'DisplayName','UP')
set(h,'AutoScaleFactor',1)
kopf_anpassen(h, 2.83/2.83);

 
 legend show
 
 
 % switch off the Quivergroup Property ???AutoScale??? for all arrows
%hAutoScale=findobj('-property','AutoScale');
%set(hAutoScale,'AutoScale','off')

